5 POKE53280,6:POKE53265,PEEK(53265)AND239
10 FORI=1TO16:READA$:NEXT:X=60:Y=57:CL=1:SC=53281
20 FORI=12288TO12799:READSP:POKEI,SP:NEXT
25 RESTORE:L$=""
30 M=.:V=53248:FORI=2040TO2047:M=M+1:POKEI,191+M:NEXT
40 FORI=39TO46:CL=CL+1:POKEV+I,CL:NEXT
50 FORI=0TO6STEP2:X=X+20:POKEV+I,X:NEXT:FORI=1TO13STEP2:POKEV+I,Y:NEXT
60 POKEV+8,185:POKEV+10,205:POKEV+12,240
70 POKEV+16,128:POKEV+14,5:POKEV+15,Y
80 POKE53265,PEEK(53265)OR16
100 PRINT"[147]":POKE SC,1:POKEV+21,255:TA=10
145 PRINTLEFT$(L$,5)TAB(7)"[156] ** D I R E C T O R Y ** "
150 A=A+1:B=B+1:READPR$:IFA>9THENTA=9
160 PRINTLEFT$(L$,B+8)TAB(TA)""A"-"PR$
165 IFB=8THEN175
170 GOTO150
175 IFA>=16THENRESTORE:A=0
190 PRINTLEFT$(L$,23)TAB(7)"[156](C) ION INTERNATIONAL INC.":POKE198,0:AN$=""
200 PRINTLEFT$(L$,20)TAB(8)" PRESS F1 OR CHOOSE NO.[146]";
210 GETTM$:IFTM$=CHR$(13)ANDAN$=""THEN 210
211 IFTM$=CHR$(20)THENPRINT"[157]    ":GOTO190
215 IFTM$="[133]"THENGOSUB300:TA=10:B=.:GOTO150
218 IFTM$=CHR$(13)ANDAN$<>" "THEN 225
220 AN$=AN$+TM$:PRINTAN$;"[144][146]_";
221 T=PEEK(V+39):POKEV+39,PEEK(V+40):POKEV+40,PEEK(V+41):POKEV+41,PEEK(V+42)
222 POKEV+42,PEEK(V+43):POKEV+43,PEEK(V+44):POKEV+44,PEEK(V+45)
223 POKEV+45,PEEK(V+46):POKEV+46,T
224 PRINTLEFT$(L$,20)TAB(8)"[150] PRESS F1 OR CHOOSE NO.[146]";:FORD=1TO90:NEXT:GOTO200
225 AN=VAL(AN$):IFAN<1ORAN>16THENPRINT"[157]     ":GOTO190
226 AN=VAL(AN$):RESTORE:FOR CH=1 TO AN:READ PR$:NEXT CH
230 POKEV+21,0:PRINT "[147]":POKE 53280,0:POKE 53281,0
235 PRINTLEFT$(L$,15)TAB(10)"[159]LOADING "PR$"[144]"
240 PRINT "LOAD";CHR$(34);PR$;CHR$(34);",8"
250 PRINT "RUN":PRINT "[145][145][145][145][145][145][145][145][145]"
260 POKE 631,13:POKE 632,13:POKE 198,2:END
300 FORLI=7TO17
310 PRINTLEFT$(L$,LI)"                                    ":NEXT:RETURN
500 DATA MUSIC TUTOR J'85,MIDPRINT    J'85,FONTASIA    F'85,TELELINK    F'85
510 DATA FUTUREWAR   F'85,SALMON RUN  M'85,AUTO LINE#  M'85,HOME BUDGET M'85
520 DATA TILE TIME MAY'85,SCREEN DUMP A'85,AHOY DOCK   S'85,FILE LOCK   S'85
530 DATA LGHTNG LOAD N'85,DIR MANIP.  D'85,GAMELOADER  D'85,JEWEL QUEST D'85
600 DATA 0,0,0,0,0,0,7,254,0,7,255,128,7,255,192,7,135,224,7,131,224,7,131
610 DATA 224,7,135,192,7,255,0,7,255,0,7,135,192,7,131,224,7,129,240,7
620 DATA 129,240,7,131,240,7,255,224,7,255,192,7,255,0,0,0,0,0,0,0,0
630 DATA 0,0,0,0,0,0,7,255,224,7,255,240,7,255,240,7,255,224,7,128,0,7,128
640 DATA 0,7,128,0,7,248,0,7,252,0,7,248,0,7,128,0,7,128,0,7,128,0,7,255
650 DATA 224,7,255,240,7,255,240,7,255,224,0,0,0,0,0,0,0
660 DATA 0,0,0,0,0,0,0,254,0,3,255,128,7,255,224,15,227,240,15,193,248,15,192
670 DATA 0,7,240,0,1,254,0,0,127,128,0,31,224,0,7,240,0,3,248,0,1,248,7
680 DATA 227,248,3,255,240,0,255,224,0,63,128,0,0,0,0,0,0,0
690 DATA 0,0,0,0,0,0,7,255,240,7,255,240,7,255,240,7,255,240,6,62,48,4,62
700 DATA 16,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62
710 DATA 0,0,62,0,0,62,0,0,0,0,0,0,0,0
720 DATA 0,0,0,0,0,0,0,62,0,0,255,128,1,255,192,3,255,224,7,247,240,7,227
730 DATA 240,15,227,248,15,193,248,15,193,248,15,193,248,15,193,248,7
740 DATA 227,240,7,247,240,3,255,224,1,255,192,0,255,128,0,62,0,0,0,0,0,0,0,0
750 DATA 0,0,0,0,0,0,31,255,240,15,255,248,7,255,248,7,255,240,7,128,0,7
760 DATA 128,0,7,128,0,7,128,0,7,252,0,7,254,0,7,252,0,7,128,0,7,128,0,7,128
770 DATA 0,7,128,0,15,128,0,31,128,0,0,0,0,0,0,0,0
780 DATA112,0,0,112,0,0,112,254,0,231,255,192,207,255,224,31,131,240,31,1,240
790 DATA31,7,240,15,131,224,7,255,192,3,255,128,7,255,192,15,131,224,31,1,240,31
800 DATA 1,240,31,131,240,15,255,224,7,255,192,1,255,0,0,0,0,0,0,0,0
810 DATA 0,0,0,0,0,0,15,255,240,15,255,240,15,255,240,15,255,240,15,128,0
820 DATA 15,128,0,15,128,0,15,255,128,15,255,224,15,255,240,0,1,248,0,0,248
830 DATA 15,128,248,15,193,248,7,255,240,3,255,224,0,255,128,0,0,0,0,0,0,0